home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / paspeak.zip / TALKDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1985-01-02  |  2KB  |  52 lines
  1. Program Talk_Demo;
  2.   { This program demonstrates a speech synthesis program
  3.     written and copyrighted by Andy McGuire, Dec. 2,1983
  4.     and modified for use with Turbo Pascal by Jim Margarit,
  5.     Dec., 1985.  The actual speech synthesizer program,
  6.     originally designed to interface to basic, is called
  7.     Speech.com.  A modified version to accomodate Turbo
  8.     Pascal is called t-speech.com.  A file, Speak.pas,
  9.     contains procedures for calling the speech module,
  10.     while Turbolip.com contains assembly code that
  11.     acts as an external Pascal procedure.  All three
  12.     are needed to run this program.  To use,
  13.     T-speech.com, Turbolip.com and Speak.pas must be
  14.     present on your Turbo working disk. Simply
  15.     compile this program and run normally.               }
  16.  
  17.  
  18. type
  19. str = string[255];  { The string length is not critical. }
  20. {$i speak.pas}      { Brings in Speak, Call_Speech, and Turbolip.com. }
  21.  
  22. var
  23. text : str ;
  24.  
  25. Begin
  26.  Clrscr;
  27.  Text := 's-p-ee-ch b-i ae-n-d-ee m-ih-k g-w-i-r';
  28.  Writeln ( 'SPEECH by Andy McGuire' );
  29.  Speak ( text );
  30.  Delay ( 500 ) ;
  31.  Writeln ( 'a b c d e f g h i j k etc.');
  32.  Speak ( 'a-ee b-ee s-ee d-ee ee-ee eh-f j-ee a-ch i j-a k-a');
  33.  Delay ( 500 );
  34.  Speak ( 'eh-t s-eh-t-uh-r-uh' );
  35.  Delay ( 800 );
  36.  Writeln ( #10,'My phonemes are....');
  37.  Writeln ( 'u a i b d g j p t k w y r l m n s v f h z' );
  38.  Speak ( 'm-i f-o-n-ee-m-s ah-r' );
  39.  Delay ( 500 );
  40.  Speak ( 'u a i b d g j p t k w y r l m n s v f h z' );
  41.  Delay ( 1000 );
  42.  Writeln ( #10, 'and' );
  43.  Writeln ( 'aw ah uh ae oh eh oo ih ee wh ch sh tz th zh' );
  44.  Speak ( 'ae-n-d' );
  45.  Delay ( 800 );
  46.  Speak ( 'aw ah uh ae oh eh oo ih ee wh ch sh tz th zh' );
  47.  Delay ( 800 );
  48.  Writeln ( #10, 'Ok, now repeat those ten times fast!' );
  49.  Speak ( 'i l-ah-v y-oo   s-oo-s-ee' );  { A dedication of sorts. }
  50.  
  51.  
  52. end.   { Profound, eh? }